Namespace Actions
    Public Class ActionResources
        Public ReadOnly Connections As New Dictionary(Of String, ADODB.Connection)
        Public ReadOnly Recordsets As New Dictionary(Of String, ADODB.Recordset)
        Public ReadOnly Results As New Dictionary(Of String, ActionResult)

        Public Sub Release()
            For Each ConnRes As KeyValuePair(Of String, ADODB.Connection) In Connections
                Try
                    ConnRes.Value.Close()
                Catch ex As Exception
                End Try
            Next
            For Each RsRes As KeyValuePair(Of String, ADODB.Recordset) In Recordsets
                Try
                    RsRes.Value.Close()
                Catch ex As Exception
                End Try
            Next
            Connections.Clear()
            Recordsets.Clear()
        End Sub
    End Class
End Namespace
